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asa REMark wa. 


Ce numéro de QL DOC contient 3 programmes BASIC 
qui peuvent être obtenu directement de QL DOC, 
vous sauvant ainsi la tache fastidieuse de les 
taper directement au clavier. La façon de pro- 
céder est très simple. Envoyer $1 plus le support 
sur le lequel vous voulez les recevoir. Habituel- 
lement, OL DOC renvoie par la méme occasion des 
petits extras. Si vous trouvez des "bugs", OL DOC 
aimerait bien le savoir, Par exemple, il parait 
que BLO_BAS ne fonctionnerait pas bien sur les 
imprimante SEIKOSHR/8L printer, je ne peux pas 

le confirmer car sur mon imprimante, ca marche 
numéro 1!!! 


Si vous recherchez un OL comme “backup”, SHARP 
vend des QLs à 199 US, c'est peut-être le temps 
d'en profiter. 


A la prochaine... Wm 


Sinclair News 


SECTOR SOFTUARE: Nouveaux produits..sscscsess 


SECTOR SOFTURRE offre une nouvelle ROM pour le QL, elle 
s'appelle NGUK. Ecrite par Richard Alexander, elle corrige 
les "BUGs" des anciennes versions JH/JS/HC, quelques 
nouvelles commandes ont été ajoutées comme par exemple une 
commande TRACE pour le SuperBASIC. Le prix de vente est 24 
livres sterling. 


OVERDRIVE est un programme utilitaire pour imprimante qui 
offre l'équivalent 255 “TRANSLATEs” possibles avec une 
possibilité d'utiliser jusqu'à 88 caractéres pour chacune 
d'elles! OVERDRIVE peut également insérer un graphique en 
Plein milieu d'un texte lors de l'iapression de ce dernier à 
partir de QUILL. Le prix est de 16 livres sterling. 


SECTOR SOFTURRE, 39 Uray Crescent, Ulnes Valton, 
Leyland Lancs, PRS 3NH, England 


LA FIN DES MICRODRIVES. aoesouceesesesasesounne 


La compagnie britannique ABLEX, annonce son intentlon de 
terainer ta fabrication des cartouches ydrives d'igi la fin 
de l'année 1989. On invoque 2 raisons: 


-le marché OLien pour les udrives diminue rapidement, en 
partie à cause de la popularité des disquettes. 


~BASF, qui fournit le ruban magnétique, termine ta 
production du ruban utilisé par les cartouches. 


DES NOUVELLES DU SINCLAIR N. AMERICA USER GROUP... 


(Sources: Sinc-Link -Toronto User Group 
SHUG Bytes - Hiluaukee User group) 


J'ai reçu des nouvelles plus ou moins fratchesd propos du 
SNUG ( voir QL DOC précédent ). C'est le 6 mai dernier qu'a 
eu lieu une réunion nationale dans le but d'álire un comité 
exécutif. 35 menbres présents ont élu le comité suivant: 


Président : Mel Nathanson 

Prenier vice-président : Paut Holagren 
Deuxiène vice-président : Basil Uentvorth 
Secrétaire : fludrey Curnutt 

Trésorier : John Cushran 


Le SNUG s'occupe de tout les ordinateurs appartenont & la 
famille SINCLAIR, du ZX81 au QL. 


1o (6 m3 


abonnemen * 8206 St-Hubert Montréal (x) HZP 5 


Si vous demandez des renseignements concernant te SHUG 
veuillez inclure 1$ pour couvrir les frais postaux... 


SHUG, 7515 Arbordale Dr., Port Richy, FL 34668, USA 


Biorythaes bas 


par JC Touzin 


Le prograsne BIORYTHNE_BAS, écrit par notre ani JC Touzin, 
a besoin d'un programme de copie graphique d'écran. Le 
fichier GPRINT PRT présent sur le wdrive contenant le 
programme EASEL (celui qui fait des graphiques) peut très 
bien faire l'affaire. It s'agira d'ajuster la ligne 188 en 
conséquence, pour le charger en mémoire. 


— Physique, Août 1989 -—Emotion. foot 1989 


ELO 3 
----Intellect. fioüt 1989 


toruthme de Réal Gagnon 
date de naissance: 18 Hovembre 1962 


----Intuition. Août 1983 


Encore (o/m? 
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1 REMark BIORYTHMES BAS 
2 REMark écrit par JC Touzin, La Sarre (Québec) 


Ji 
99 REMark remplacer "raal hc bin" par votre i re: de 
copie d'écran, par “adv! GPRINT PRI" de EASEL 


par exeaple... 
100 CLEAR: a=REGPR(1000): LBYTES raal hc bin,a 
110 MODE 4 
120 OPEN#4,scr: OPEN#S,scr: OPEN#6, scr: OPENS], scr 
130 REPeat bio 
140 intro 
150 saisie 
160 jour mois ac,ac 
170 courbe 
180 INPUT#O,, "Encore (o/n)? "jo n$ 
190 IF o n$=="n": EXIT bio 
200 END REPeat bio 
210 CLOSER: CLOSE#5: CLOSE#b: CLOGER7:8TOP 
220 DEFine PROCedure saisie 
230 REMark saisie des données 
240 ERED E rogr anas de calcul du biorythae." 
250 INPUT40, "Copie sur imprimante (o/n)? ";it 
260 INPUT#O,"Nom de la personne ";non b$ 
270 PRINTWO, "Date de naissance:" 
280 INPUTHO, "Jour (1-31)? "jjn;" Mois (1-12)? "jan; 
"Année (ex. 1987)? "jan 
290 SELect ON an 
300 = 1 TO 2:factn-janv fev(jn,an,an) 
310 = 3 TO 12:factnzautres anis(jn,an, an) 
320 END SELect 
330 PRINT40, “Mois et année du calcul:" 


340 INPUTHO, "Mois (1-12)? ";ac;" Année (ex. 1986)? "jac: jc=l 


350 SELect UN ac 

360 = 1 TO 2: factc-janv fev(jc,ac,ac) 

370 = 3 TD 12 : Factc-autres aois(ic, ac, ac) 

380 END SELect 

390 REMark PRINT factn: PRINT factc 

400 5-23: t=28: 2-33: ii=38 

410 END DEFine saisie 

420 DEFine FuNction janv fev (jour,aois, annee) 

430 RETurn 3o5tanneet jour 318 (aois- 1) «INT ((anneg-1)/4)- 
INT(. 758 (INT (( Cannee-1)/100)41))) 

440 END DEFine janv_fev 

450 DEFine FuNction autres mois (jour,aois,annee) 

450 RETurn JéStannee+jour+S1t(aois-1)-INT(.4taoist2. 3)+ 
INT (annee/4) -INT(. 758 (INT (annee/100)+1)) 

470 END DEFine autres aois 

480 DEFine PROCedure jour mois lannee,aois) 

490 SELect ON avis 

500 =2: jour-28 
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510 =4,6,9,11: jour=30 

520 =1, 3, 5; 7,8,10,12: jour=3i 

530 END Select’ 

540 IF jour=28 AND annee/4-INT (annee/4): jour=29: END IF 

550 SELect ON jour 

560 228: si-139.79 

570 229: siz144.16 

580 -30: si=148.58 

590 :31: si=153 

600 END SELect 

610 END DEFine jour mois 

420 DEFine PROCedure quel aois (mois) 

630 SELect ON aois 

640 -1: nom anis$="Janvier" 

650 =2: nom anis$="Février" 

660 =3: non mois$="Mars" 

670 -4: nom aois$="Avril" 

680 -5: non mois$="Mai" 

690 =b: noa mois$="Juin" 

700 =7: nom aois$-"Juillet" 

710 =8: noa nois$="Août" 

720 =9: num _sois$="Septesbre" 

730 =10: nom aois$-"Üctobre" 

740 z11: nou aois$="Noveabre" 

750 =12: non mois$="Déceabre" 

760 END SELect 

770 END DEFine quel aois 

780 DEFine PROCedure graph 

790 FOR n= 4 TO 7:SCA Eka 100,0,0 

800 FOR n=4 TO 7: LINEMn, 15,12 TD 15,9 

810 FÜR n=4 TO 7: LINE#n, 15,53 TO 153,55 5s 

820 FOR n-4 TO 7: ATin, 0, 0: SPRINTEN, "+l: ATin, 4,0: 
PRINT#n,* 0": ATi, 8, O:PRINT#n, * -1" 

830 FÜR n- =4 10 7 

B40 FOR i =5 T0 jour STEP 3: AT#n, 5, j+2: PRINTEN, j: 
AT#n,0, j+2: PRINTÉEn, "i": S B, j£2: PRINTER, "+" 

850 END FOR n 

860 quel mois (ac) 

870 AT4459,0: PRINT#4,"----Physique. "jnom | mois", "saci 
ATIS, 9, 0: PRINTAS, *----Enot ion. "non _ mois$; "jac 

880 TS 9, 0: PRINTE, "----[ntel lect. AU s0iS$;" "jac: 
ATH, 9, 0: PRINTA7, vt----Intuition. "snos mois$;" "jac 

890 EUM, PRINT#0, "Biorythae de MILLE " quel aois (an): 
PRINTHO, "Date de naissance: ";jn;" ";nom mois$;" "jan; 

900 END DEF ine 

910 DEFine PROCedure courbe 

920 graph 

930 canal-4: REMark physique 

940 y-factc-factn 

930 far x719 TO si 


t 
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950 FOR x-15 TO si 

960 POINT Icanal, x,55+43¢SIN(RAD(360) 8 (y/s)) 
970 F +. 225806 

980 END FÜR x 

990 canal-5: REMark émotion 

1000 DER E. 

1010 FOR x-15 TO 

1020 POINTAcanal, x,55 M45 IN (RAD (340) € (y/t)) 
1030 hs .2258 
1040 END FOR a 

1050 canal=6: REMark intellect 

1060 v-factc- P 

1070 FOR x= 15 T 

1080 Panel i SSH ISIMRAD (36018 (y/20) 
1090 yy" 225806 

1100 END FOR x 

1110 canalz7: REMark intuition 

1120 "d 

1130 COR 1-15 TO 

1140 POINT Cana ; ,554318 IN (RAD (350) t (y/ 111) 
1150 k df .2238 
1160 END FOR m 

1170 IF i$=="0" : in pite 

1180 END DEF ine cour 

1190 DEFine PROCedure intro 

1200 WINDOW 512, 256,0, 0: EPAPER 0: sele 
1210 fenetre 4,238; 1 
1220 fenetre 5,238, 10222 EN X 0 
1230 — fenetre 6,238,102, 16 iol § 
1240 fenetre 7,238, 102,258, 105,0 
1250 fenetre 0,480, 22, 16,210,0 
1260 END DEFine intro 


1270 DEFine PROCedure fenetre (canal,x,y,ox,oy, couleur) 


1280 PAPERIcanal kou au n 
1290 PAPER&canal, couleur 

1300 CLS"canal 

1310 INKtcanal, 7t (couleur (4) 
1320 BORDER¥canal, | 51 

1330 END DEFine fenetre 

1340 DEFine Et imprimante 
1350 OPENES 

1360 PRINTIS, EHRS(27);" 0" :REMark 1/8 interligne 
1370 CLOSERS. 

1380 CALL a 

1390 END DEFine imprimante 


LOTERIE 


LOTERIE_BAS est petit programme assez siaple qui génére des 
combinaisons de chiffres au hasard qui peuvent être utilisé 
pour les {oteries6/49 et SELECT 42. 


Le coeur du programme est la procédure LOTTO qui demande 2 
paramètres., Le premier spécifie le noabre maximum qui peut 
être accepté. Le deuxième donne le nombre de chiffre à 
générer. Ainsi pour la 6/49, nous avons LOTTO 49,6 et pour 
la SELECT 42, nous avons LOTTO 42,6. On pourrait obtenir des 
combinaisons pour la QUOTIDIENNE 3 chiffres avec LOTTO 9,3. 


Les — combinaisons sont trouvées avec la procédure 
TROUUE UNE COHBINE qui demande 3 paramètres. Le numéro de la 
combinaison, le nombre maxiaun et nombre d’ éléments composant 
la combinaison. Chaque élément est obtenu avec La fonction 
RND. On vérifie que l'élément obtenu est unique dans la 
combinaison. Une fois tous les éléments trouvés, on les 
classe par ordre croissant avec la procédure BUBBLE .SORT, 


La loterie et 
la probabilité 


Sélection Chances de 
gagnante gagner 


LOTTO 6749 


3/6 (59) 
4/6 
3/6 
5/6+ 
6/6 


93630-01077 


Jeu dhasard:Jeu dargent 


Un sondage réalisé en 1988 par 
LOTO-QUEBEC mentionne que 952 
des Québécois ont joué au 
soins une moins fois à la 
loterie dans leur vie. En 
1987-88, Loto-Québec 
atteignait le ailliard de $ 
comme chiffre d'affaires. Cela 
signifie que chaque Québécois 
dépense $158 par année en 
billets de loto... 


En 1928, la gouvernement 
Taschereau tente de mettre sur 
pied une loterie pour financer 
le systèse d'éducation du 
Québec. Duplessis, dans les 
années 48, tente de financer 
les hópitaux de cette facon. 
Ces deux tentatives 
aboutissent à des échecs à 
cause de pressions exercées 
par le gouvernement fédéral 
pour qui les loteries étaient 
insorales, C'est en 1978 que 


Loto-Québec sera créé. En 
constatant le succàs obtenu au 
Québec, les autres provinces 
enboitent le pas dans la 
création de loteries 
provinciales et 
inter-provinciales (comme la 
6/49). 


Loto-Québec obtient 6872 de son 
chiffre d'affaires à partir de 
la Lotto 6749. Sur le ailliard 
de $ de vente annuelle, 388 
millions va au gouvernement, 
477 millions aux gagnants, 54 
aillions est distribué aux 
sarchands-détaillants et le 
reste sert à couvrir les frais 
d'administration. 


LOTERIE bas par Réal Gagnon Montréal (Québec) 


100 REMark LOTERIE bas .5 


110 REMark par Réal Gagnon 1989 pour GL DOC #11 


120 

130 MODE 4 

140 WINDOW 512, 256,0,0:PAPER O: INK 7 

150 BORDER 20, 56 

160 REPeat ks principale 

170 LS 

180 INK 2:PRINT " Loterie version 0.5", 

190 INK 4sPRINT " écrit par Réal Bagnon, "AU dc 1987" VV: INK 7 
200 — PRINT " Sélection des nombres pour quelle loterie?" 

210 PRINT " [ 0 1 Quitte"\" [ 1 Lotto 6/49"V" (2 1 Sélect 42" 
220 — DIM numero(9,7) ,chiffre2$(07) 

230 — touche=CODE(INKÈY$(-1)) 

240 — SELect ON touche 


230 =CODE (17): lotto 49,6 


260 =CODE(”2"): lotto 42,6 

270 =CODE(”0”): pi A PRINT At" OK, a la prochaine.. 
280 E boucle principale 

290 =REMAINDER BEEP. ii 

n END SELect 

10 


END REPeat boucle principale 


SO DEFine PROCedure lotto (limite, coabien) 


LOCal i,boucl i 

REPeat boucl 

PRINT \\: CIE 2,1:PRINT "Combinaison pour "; 
INK 32 


IF limite=49 
PRINT “LOTTO 6/49" 
ELSE 


PRINT "SELECT 42" 
END IF 


INK 7:CSIZE 0,0:PRINT "8% Je pense " 
FOR i=! TO 9: :trouve _une_combine i, liaite, coabien: PRINT "."; 
PRINT W 
FOR i-1 TO 9:CSIZE 2,0: INK 2:PRINT "#";i;:CSIZE 0,0:PRINT ’ a 
INK 7:PRINT 
FOR i=! m combien 

PRINT " "; 

FOR ii! TO B:PRINT numero (ii, i), 

PRINT iris i) 
END FOR 

INK 4: PRINT \\" "rare (o/n) ?":INK 7 
touche$=INKEY$(-1) 

IF touche$==’n’:EXIT boucle 
END REPeat boucle 
END DEF ine 


590 DEF ine PROCedure trouve une cosbine (laquelle, limite,nbr chiffre) 


600 LOCal nn i,ii 

610 chiffre$=FILL$(CHR$(0),7) 

620 FOR i=1 T0 nbr chiffre’ 

630  REPeat cherche 

640 tampon$=CHRS(INT(RND(L TO limite))) 

650 IF NOT (tampon$ INSTR chiffres) 

660 chiffre$(i)-tampon$: chiffre2$(i)=tampon$:EXIT cherche 
670 END IF 

680 END REPeat ‘cherche 

690 END FOR i 


bubble sort nbr chiffre 
FOR i-I TO nbr chiffresnumero(laquelle, i) -CODE (chiffre2$(i)) 
END DEFine 


no DEF ine te bubble sort (nbr element) 


870 
880 


LOCal a tampons, Flag 
"m al th nbr element 


i b=1 TO nbr element-a 
IF CODE (Chi fTre2$ (b) CODE (chi ffre2$(b+1)) 


fla 

tanpon$-chi ffre2$ (b) 
chiffre2$(b)=chiffre2$(b+1) 
chiffre2$(b+1)=taapon$ 

END IF 


IF E THEN RETurn 
END FOR 
END DEFine bubble 


DLO BAS 


Uersion 0.6 
par Réal Gagnon 


Voici une nouvelle version du programme DLO_BAS qui nous 
permet de voir plus clairement le contenu d'une disquette 
ou d'un ydrive, La plupart des "BUGs" présents sur la 
premiàre version ont été corrigés et de nouvelle options ont 
fait leurs apparitions en plus d'une nouvelle interface 
utilisateur. 


Pour débuter DLO.BAS, on fait sinptenent LRUN xxxx_DLO_BAS 
où xxxx est le support contenant DLO_BAS. 


L'écran initial nous demande de nettre un disquette 
formattée dans flpi.. Si on travaille avec des pdrives 
seulement (ou RANdisk), on change à la ligne 227 la variable 
JT eni Pour 'advi diri" (ou ‘rami_dirl') au lieu de 
'flpi dirl'. 


Puis on demande le nom du “device”, ce dernier peut être 
flpi ,fip2.,ndvi, ou mdv2_. Nous avons la possibilité 
d'ajouter un titre ou un commentaire, sinon on fait 
simplement CENTER]. Le directory du “device” est lu, classé 
par ordre alphabétique et affiché. L'affichage (et 
l'iapression se fait sur 6 colonnes, cela peut être 
modifier en ajustant la variable nbr.col à la ligne 1658. 
Une fois ceci fait, nous pouvons lire un autre "device", 
aller au menu d'iapression ou bien retourner au SuperBASIC. 


Pour l'impression, le prograanae offre 3 options: 


Très petites lettres, impression en mode  SUPERCRIPT 
CONPRESSE, idéale pour faire des étiquettes à coller sur la 
disquette elle-aéne. 


Petites lettres, impression en mode COHPRESSE qui peut 
servir pour un petite feuille à coller sur la pochette de la 
disquette. 


L'option lapression normale imprime sur toute la largeur 
d'une feuille noraale en 88 caractères par ligne en 6 
colonnes. 


100 
110 
113 
117 
130 
140 
170 


180 
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REMark o 000 s 

REMark 0 LL Disk Label Organizer v.6 
REMaEE 7 en par Réal Gagnon Mt] Gc 89 
REMark 


WINDOW 512,256,0,0 —— 
BORDER 3,45:PAPER 0: INK 2:CLS 

PRINT 'Diskette Label Hé e 

pe Réal Gagnon, Mti Québec 1989” 

PRINT "version 0.6’,,, 

"Logiciel du domaine public pour le Sinclair QL’ 


INK 
PRINT "IMPORTANT: Disquette NON-PROTEGEE en 
écriture dans FLPI ... "V 

INPUT 'Contenu de yisi "device* (ex. fpi! ? "sdevice$ 
INPUT ‘Avez un TITRE ou une NOTE spéciale, 

sinon faites [ENTER] ? ’;titre$ 


mast cat$-' f]pl dirl” 

read dir: IF empty=0 : RUN 
sort fi$ 

list scr 


BORDER, | 1:ELSH0 
PRINT40, [11 Lire un autre “device"”,,'[2] laprime le contenu” 
PRINT40, "[O] Retour au Super BASIC” 
REPeat loo d 
a-CODE CINKEYS (- 2) 


-CODE (*2") :choi ie 
=CODE ("0") :PRINTHO, "Retour au SuperBASIC...":ST0P 
END SELect 
END REPeat loop 


DEF ine PROCedure choi_prt 
CLS#0 


§ 

REPeat attend:IF INKEYS-"":EXIT attend:ELSE :END REPeat attend 

PRINT40, L1] Petites lettres",,"(2] Très petites lettres" 

PRINT#0, "[3] Impression normale”, , "L Menu principal" 

REPeat loop2 
ACODE (INKEYS(-1)) 
SELect ON a 

"t”):list prt 1 
=CODE(”2”):list prt 2 
SEU C ee j 
=CODE(”0” ):EXIT loop? 
END SELect 
END REPeat loop? 


CL5#0 
PRINTIO," C11 Lire un autre "device"’,,’{2) Iaprime le contenu’ 


491 PRINTIO,"[0] Retour au Super BASIC" 
500 END DtFine 


910 : 

520 DEFine PROCedure read dir 

530 Hum 

540 DELETE aast cat$ 

550 OPEN NEWHS,mast cat$ 

550 DIRKS, device$ 

570 CLOSEMS: PENIS, east. cat$ 

a dice MODERN recherche le nombre de secteurs libres 
b20 PRINT ectucaronalyae du contenu de ";device$, 

630 IF EOF (#5) 

631 PRINT VI] n’y a aucun Fichier sur ";devic 

632 PRINT atte n une touche...": PAUSE: Or OSE ES: eapty=0:RETurn 
635 PAUSE: CLUSE#5:eapty=0: RETurn. 

636 END IF 

640 INPUT#5, fr sp$ 

650 PRINT fr _sp$ 


670 Sa nc ae se trouve cosbien il y a de fichier et 
671 REMark --------------- lequel est le plus long 

690 BUTS duany$ :REMark ligne vide 

700 nfiles=0 

710 imax=0 


720 REPeat loo 

730 INPUT #5, af 

750 1fi=LEN(a$) 

760 IF 1fi?laax: lmax=lfi 

710 IF a$()'dirl'snfiles=nfilesti 

115 IF EOF 45) :EXIT loop 

780 END REPeat ton 

790 PRINT "II ;nfiles;" fichiers.’ 

800 CLOSE#5:0P M5, aast cats 

810 INPUT#, duany$: INPUT#S, dumay$ :REMark secteurs librestligng vide 


830 mad: --------------- creation du tableau contenant les noas 
831 REMark -------7-7--——- de fichier. 

850 bini isla iles, laax) 

890 «i=l 


900 REP Gat loop 

910 INPUTES, a$ 

930 IF a$O diri’ 

940 fi$(i)=a$ 

950 isiti 

960 END IF 

945 IF EOF (45) : EXIT. 100p:END IF 

970 END REPeat loo 

980 CLOSER: DELETE mast cat$ 

990 END DEFine 

1010 REMark ——---- PROCs sort & que 
1011 REMark ------------7-7-7-7-------- source SINCLAIR QL WORLD! 


1020 : 
1030 DEFine PROCedure sort (array) 
1040 INK 4 

1050 PRINT 'Je classe...’ 

1060 INK 7 

1070 qsort array,!,DIMN(array) 
ER E D DEFine sor 


1100 DEF ine PROCedure qsort (array, bottoa, top) 
1110 LOCal loop,lo,hi,pointer 

1120 Jostottoeyhistup 

1130 pointer=bottoe 

1140 REPeat loop 

1150 — IF lod=his€X1T loop 

1160 — IF a YO pa 


1170 teap$=array(lo 

1180 array (la)=array (hi) 
1190 array (hi)=tee 

1200 IF pointer le 

1210 o=loti:pointer=hi 
1220 

1230 hizhi-I:pointerzlo 
1240 END IF 

1250 — ELSE 

1260 IF pointer=lo 

1270 hi=hi-t 

1280 E 

1290 lo=la+1 

1300 END IF 

1310 END IF 


1320 END REPeat Du 

1330 IF ABG(top-bottoa)(2 THEN RETurn 
1340 qsort array, bottom, pointer-l 
1330 genri array, pointer+l, top 

1360 END DEFine qsort 


1370 : 
1390 DEFine PROCedure list prt (style) 
1595 Ped =CHR$(27) 


1410 OPENS, sert 
1430 st=style 
1435 SELecl ON st 

1460 PRINTES, esc; "N°; CNRS (1) ;esc$;"80"jesc$; "3"; HR (16); 
1481 EORR ,8sc$; "M"; CHR$ (15) ; 

1487 PRINTES Toti 


1488 END SELect 
1510 PRINTES esc$; WI’ ;titre$ Vr sp$;esc$; 'WO' :REMark large on/off 


1320 display files 
1330 PRINTES, esc; "PANE CLOSERS 
1340 END DEFine 


1550 : 
1560 DEFine PROCedure list scr 
1570 1$=’ i 


1580 OPENS, scr 512x180a0x33: BORDERES, 2, 2: PAPER#S, 0: INK#5, 4: CLGRS 
1590 PRINT#5, titres\fr_sp$ 

1600 display files 

1610 END DEFine 

1620 : 

1630 DEFine PROCedure display files 

1640 REMark -----~-~------ 2-2 enon ene NBR_COL=noabre de colonne 
1650 nbr col=6 

1660 n d ss E cot) 


1670 FOR ligne=0 TO n lignes 

1680 FOR colonne=i TO nbr col 

1490 IF Lie ANS ligne 
1700 long: ts EN(fi$((1ignet6) tcolonne)) 
1710 I long f)12 

1720 f$=Fi$[T(Iignet6]+colonne), 1 TO 11) 
1730 ELSE 

1740 f$=Fi$((lignet6)+colonne) 

1750 END IF 

1760 ] Fz13-LEN(f$) 

1770 PRINT #5,f$;1$(1 TO 1 £); 

1780 END FÜR colonne 


M 
2 
ce 


1 PRINTES 
1800 END FOR ligne 
1810 END DEFine 


Lecture/Analyse du contenu de fipi_ 
Il y a 67 fichiers. 
Je classe ee. 


Disquette #2 PAGE DESICHER 


ALIEN font AMELIA font ARCADE font AURA font — BABYTEETH f BOLDSTANDAR 
EOLD font — BOTTLENECK. BOXES patn — BRORDURY EN  COUNTDOUM f£ — COUNTOQUM h 
CUBIC hires DRTR78 font DRTR78 hires DIAMONOS pa DOUBLEOUTLI  DOUMURPD fo 
ENPTYA4 page EMPTYAG_page EHPTY LASER ENPTY_SCREE EXANPLE cut EXAMPLE page 
EXANPLE scr EXTRABOLD_f FANCY_font FILLSI pain FILLS2 pain FILLS3 patr 
FONTS page FRAME patn — FUTURABLACK FUTURRDISPL FUTURADISPL  HRLFCHECK p 
HRLFHEICHT HEAVY font — ITRLIC font MOORECOMPUT ODIN_font  OLDE font 
QUTLIHE font OUTLINE hir OUTLINE patn OVAL patn — PROMOTION p  REUERSED fo 
SRHSSERIF f SERIFR hires SERIF font SMALL font — SPOOLER task SQURRESSBOL 
SQUARESS fo SQUARE font STANDARD fo STANDARD hi STEKCIL font TIMES hires 
TRAFFIC font TRIANGLES_p UPSIDEDOUN UPWARD font WAVES patn — WIDE font 
ZIPPER fant 


[1] Lire un autre "device" 12] Imprime le contenu 
[6] Retour au SuperBASIC 


Trucs Qj iens 
Astuces GI iennes 


La date de fabrication d'un drive est indiquée sur celui-ci 
sous la forme d'un code composé de 4 chiffres, par exemple 
"2315". 


Les 3 premiers chiffres représente la journée de 
fabrication, por exemple “231” serait le 23te jour de 
l'année qui est représentée par le dernier chiffre. Si ce 
dernier est "5" alors c'est de l'année "1985" qu'il s'agit. 


Le code ^1416", par exemple, indique que la cartouche a été 
fabriquée la 141e journée de l'année 1986. 


pl e UU] 


H est possible de transformer une (imprimante SEIKOSHA 
SP1888 en une “SINCLAIR QL PRINTER” en installant une copie 
de la ROM de cette dernière dans la SP1888. Cette ROM est 
contenue dans un EPROM 27128. Il faudra mettre tous les 
interrupteurs de la SEIKOSHR à “OFF” pour fonctionner en 
node QL. 


CH EMA. 
Le Bulletin (Québécois 
pour \inclair 


Quel est le lien commun entre le IBM PC et le Sinclair QL ? 


(extrait de Inside Look at MS-DOS, p.246, BYTE, juin 1983) 


Known variously as Seattle Com- 
puter 86-DOS, IBM Personal Com- 
puter DOS, and Zenith Z-DOS, MS- 
DOS was developed by Seattle Com- 
puter Products for its 8086-based com- 
puter system. The MS-DOS history is 
intertwined with the general develop- 
ment of software for 8086-based com- 
puters. 

In May 1979, Seattle Computer 
made the first prototype of its 8086 
microprocessor card for the S-100 bus. 
There were brief discussions with 
Digital Research about using one of 
Seattle Computer's prototypes to aid in 
developing CP/M-86, which was to be 
ready "soon." Although Seattle Com- 
puter was considering using CP/M-86 
when it became available (expected no 
later than the end of 1979), there were 
only two working prototypes of the 
8086 processor card, and it was felt 
that both were needed in house. There- 
fore, there wasn't one free for Digital 
Research. 

Microsoft had already started a 
strong 8086 software-development 
program. The firm was ready to try the 
8086 version of Stand-Alone Disk 
BASIC, which is a version of its BASIC 
interpreter with a built-in operating 
system. During the last two weeks of 
May 1979, this BASIC was made com- 
pletely functional using the hardware 


last less than six months. (Unfortunate- 
ly, it has lasted much longer than that 
as part MS-DOS.) 

In the last few days of 1980, anew 
version of the DOS was released, now 
known as 86-DOS version 0.3. Seattle 
Computer passed this new. version on 
to Microsoft, which had bought non- 
exclusive rights to market 86-DOS and 
had one customer for it at the time. 
Also about this time, Digital Research 
released the first copies of CP/M-86. In 
April 1981, Seattle Computer Products 
released 86-DOS version 1.00, which 
was very similar to the versions of MS- 
DOS that are widely distributed tcday. 


A Short History of MS-DOS ` 


that Seattle Computer provided for ` 
Microsoft. Seattle Computer Products 


displayed the complete package (8086 
running disk BASIC) in New York the 
first week of June at the 1979 National 
Computer Conference. (This was the 


first-ever public display of an 8086 i 
BASIC and of an 8086 processor card ` 


for the S-100 bus.) 


Seattle Computer shipped its first - 


8086 cards in November 1979, with 
Stand-Alone Disk BASIC as the only 
software to run on it.. The months 


rolled by, and CP/M-86 was nowhere ` 


in. sight. Finally, in April 1980, Seat- 
tle decided to create its own DOS. This 


decision resulted just as much from. 


concem about CP/M's shortcomings 
as from the urgent need for a general- 
purpose operating system. 

The first versions of the operating 
system, called QDOS . 0.10, were 
shipped in August 1980. QDOS stood 
for Quick and Dirty Operating System 
because it was thrown together in such 


a hurry (two man-months), but it]' 


worked surprisingly well. It had all the 


basic utilities for assembly-language ` 


development except an editor. One 
week later, Seattle Computer had 
created an operating system with an 


editor, an absurdity known as EDLIN . 


(editor of. lines). A primitive line- 
oriented system, it was supposed to 


rights to the DOS from Seattle Com- 
puter, and the. name MS-DOS was 
adopted. Shortly afterward, IBM an- 
nounced the Personal Computer, using 
as its operating system what was essen- 
tially Seattle Computer's 86-DOS 1.14. 
Microsoft has been continuously im- 
proving the DOS, providing version 
1.24 to IBM (as IBM's version 1.1) with 


. MS-DOS version 1.25 as the general 


release to all MS-DOS customers in 


March 1982. Now version 2.0, released’ 


in February 1983, has just been an- 
nounced with IBM's new XT com- 
puter. 


` [n July 1981, Microsoft bought all © 


